home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 March / PCWorld_2007-03_cd.bin / domacnost a kancelar / scribus / scribus-1.3.3.7-win32-install.exe / tcl / tix8.1 / DefSchm.tcl < prev    next >
Text File  |  2001-11-04  |  3KB  |  104 lines
  1. # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
  2. #
  3. #    $Id: DefSchm.tcl,v 1.1.1.1.2.2 2001/11/04 05:29:13 idiscovery Exp $
  4. #
  5. # DefSchm.tcl --
  6. #
  7. #    Implements the default color and font schemes for Tix.
  8. #
  9. # Copyright (c) 1993-1999 Ioi Kim Lam.
  10. # Copyright (c) 2000-2001 Tix Project Group.
  11. #
  12. # See the file "license.terms" for information on usage and redistribution
  13. # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  14. #
  15.  
  16. proc tixSetDefaultFontset {} {
  17.     global tixOption tcl_platform
  18.  
  19.     switch -- $tcl_platform(platform) "windows" {
  20.     # This should be Tahoma for Win2000/XP
  21.     set font "MS Sans Serif"
  22.     set fixedfont "Courier New"
  23.     set size 8
  24.      } unix {
  25.     set font "helvetica"
  26.     set fixedfont "courier"
  27.     set size -12
  28.     }
  29.  
  30.     set tixOption(font)         [list $font $size]
  31.     set tixOption(bold_font)    [list $font $size bold]
  32.     set tixOption(menu_font)    [list $font $size]
  33.     set tixOption(italic_font)  [list $font $size bold italic]
  34.     set tixOption(fixed_font)   [list $fixedfont $size]
  35.     set tixOption(border1)      1
  36. }
  37.  
  38. proc tixSetDefaultScheme-Color {} {
  39.     global tixOption
  40.  
  41.     set tixOption(bg)           #d9d9d9
  42.     set tixOption(fg)           black
  43.  
  44.     set tixOption(dark1_bg)     #c3c3c3
  45.     set tixOption(dark1_fg)     black
  46.     set tixOption(dark2_bg)     #a3a3a3
  47.     set tixOption(dark2_fg)     black
  48.     set tixOption(inactive_bg)  #a3a3a3
  49.     set tixOption(inactive_fg)  black
  50.  
  51.     set tixOption(light1_bg)    #ececec
  52.     set tixOption(light1_fg)    white
  53.     set tixOption(light2_bg)    #fcfcfc
  54.     set tixOption(light2_fg)    white
  55.  
  56.     set tixOption(active_bg)    $tixOption(dark1_bg)
  57.     set tixOption(active_fg)    $tixOption(fg)
  58.     set tixOption(disabled_fg)  gray55
  59.  
  60.     set tixOption(input1_bg)    #d9d9d9
  61.     set tixOption(input2_bg)    #d9d9d9
  62.     set tixOption(output1_bg)   $tixOption(dark1_bg)
  63.     set tixOption(output2_bg)   $tixOption(bg)
  64.  
  65.     set tixOption(select_fg)    black
  66.     set tixOption(select_bg)    #c3c3c3
  67.  
  68.     set tixOption(selector)    #b03060
  69. }
  70.  
  71. proc tixSetDefaultScheme-Mono {} {
  72.  
  73.     global tixOption
  74.  
  75.     set tixOption(bg)           lightgray
  76.     set tixOption(fg)           black
  77.  
  78.     set tixOption(dark1_bg)     gray70
  79.     set tixOption(dark1_fg)     black
  80.     set tixOption(dark2_bg)     gray60
  81.     set tixOption(dark2_fg)     white
  82.     set tixOption(inactive_bg)  lightgray
  83.     set tixOption(inactive_fg)  black
  84.  
  85.     set tixOption(light1_bg)    gray90
  86.     set tixOption(light1_fg)    white
  87.     set tixOption(light2_bg)    gray95
  88.     set tixOption(light2_fg)    white
  89.  
  90.     set tixOption(active_bg)    gray90
  91.     set tixOption(active_fg)    $tixOption(fg)
  92.     set tixOption(disabled_fg)  gray55
  93.  
  94.     set tixOption(input1_bg)    $tixOption(light1_bg)
  95.     set tixOption(input2_bg)    $tixOption(light1_bg)
  96.     set tixOption(output1_bg)   $tixOption(light1_bg)
  97.     set tixOption(output2_bg)   $tixOption(light1_bg)
  98.  
  99.     set tixOption(select_fg)    white
  100.     set tixOption(select_bg)    black
  101.  
  102.     set tixOption(selector)    black
  103. }
  104.